10 '*** OISAC 2 *** SHIFT/CAPS ***
20 CLS:PRINTCHR$(14);CHR$(15);
30 FORi=0TO1000:NEXTi
40 PRINTCHR$(4);CHR$(9);